program Project1; // Zadanie 5.8

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 6; // ilosc liczb

var
  liczby:array[1..n] of integer;
  x, i, j:integer;

procedure czytaj_dane();
begin
writeln('Podaj ', n, ' liczb calkowitych.');
  for i := 1 to n do
    readln(liczby[i]);

  writeln;
  write('Wprowadzone liczby to: ');
  for i := 1 to n do
  if i < n then
    write(liczby[i], ', ')
  else
    write(liczby[i], '.');
end;

procedure przetworz_dane(); // algorytm sortowania babelkowego
  begin
    for i := 2 to n do
      begin
        for j := n downto i do
          if liczby[j-1] > liczby[j] then
            begin
              x := liczby[j-1];
              liczby[j-1] := liczby[j];
              liczby[j] :=  x;
            end;
      end;
  end;

procedure wyswietl_wynik();
  begin
    writeln;
    write('Liczby posortowane to: ');
    for i := 1 to n do
    if i < n then
      write(liczby[i], ', ')
    else
      write(liczby[i], '.');
  end;

begin
  czytaj_dane();
  przetworz_dane();
  wyswietl_wynik();

  readln; // czeka na nacisniecie klawisza Enter
end.
